home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
038a
/
dframe26.zip
/
DFRAME.INC
< prev
next >
Wrap
Text File
|
1992-02-17
|
13KB
|
210 lines
DECLARE SUB BOX.IT (TROW%, LCOL%, BROW%, RCOL%, BOXTYPE%, BOXFG%, BOXBG%, FILLFG%, FILLBG%, FILLCHAR%, SHADOW%, TITLE$)
DECLARE SUB CLREOL (XPOS%, YPOS%, BGC%)
DECLARE SUB CLRSCRN ()
DECLARE SUB DE.LAY (BYVAL SECONDS AS INTEGER)
DECLARE SUB DETECT.ANSI ()
DECLARE SUB DIS.PLAY (MSG$, FGC%, BGC%, BLINK%, BELL%, XPOS%, YPOS%, NL%, CENTER%, Caps%)
DECLARE SUB ENTER ()
DECLARE SUB ERRORS (ERRNUM%, ERRLINE%)
DECLARE SUB EXIT.DOOR (YN$)
DECLARE SUB FindFirstF (FileName$, Attr%, ErrCode%)
DECLARE SUB FindNextF (ErrCode%)
DECLARE SUB GetNameF (FileName$, NameLen%)
DECLARE SUB INITIALIZE ()
DECLARE SUB IN.PUT (RLEN%, WAITTIME!, IFG%, IBG%)
DECLARE SUB KEYTIMER (KEYSTART!)
DECLARE SUB LINES (SROW%, SCOL%, LENGTH%, DIR$, ENDS%, MID%, EFG%, EBG%, MFG%, MBG%)
DECLARE SUB MAKE.BLT (HI.SCORE#)
DECLARE SUB MAKE.BLT.CURRENT (HI.SCORE#)
DECLARE SUB MORE ()
DECLARE SUB MUSIC (TUNE$)
DECLARE SUB OUT.PUT (LF%)
DECLARE SUB SEND (MSG$, YN%)
DECLARE SUB SHOW.BLT (YN$)
DECLARE FUNCTION EXISTS% (FileName AS STRING)
DECLARE FUNCTION EXIST2% (FileName$)
DECLARE SUB BigPrint (St$, PixelCh$, BYVAL Row%, BYVAL Column%, BYVAL Attr%)
DECLARE SUB CalcAttr (Fore%, Back%, Attr%)
DECLARE SUB DelFile (FileName$, ErrCode%)
DECLARE FUNCTION DriveSpace& (Drive$)
DECLARE SUB Get4DosV (MajorV%, MinorV%)
DECLARE SUB GetDrv (Drive$)
DECLARE SUB GetDView (MajorV%, MinorV%)
DECLARE SUB GetExecPath (HomePath$, PathLen%)
DECLARE SUB GetKbd (Insert%, Caps%, NUM%, ScrollLock%)
DECLARE SUB GetKbd1 (LShift%, RShift%, Control%, Alt%)
DECLARE SUB GetSub (SubDir$, SubDirLen%)
DECLARE SUB GetSub1 (Drive$, SubDir$, SubDirLen%, ErrCode%)
DECLARE SUB Namecase (St$)
DECLARE SUB RInstr (MainSt$, SubSt$, Posn%)
DECLARE SUB SetError (BYVAL ErrorLevel%)
DECLARE SUB SetKbd (BYVAL Insert%, BYVAL Caps%, BYVAL NUM%, BYVAL ScrollLock%)
DECLARE SUB SubExist (SubDir$, IsThere%)
DECLARE SUB WinCheck (MajorV%, MinorV%)
'NOTE: The following variables are not universally available.
' Check DFRAME.DOC for variables available to each BBS system's file.
COMMON SHARED Active.Menu% '0=Main,1=Msg,2=File,3=Sysop (WC 3.0+)
COMMON SHARED Age$ 'WWIV
COMMON SHARED Alias$ 'Caller's alias/handle
COMMON SHARED AllowedBytes# 'Allowed BYTES from the PCB PWRD file.
COMMON SHARED AlreadyConnected$ '"TRUE" or "FALSE"
COMMON SHARED AnsiOn$ '"TRUE" or "FALSE"
COMMON SHARED AnsiSupport$ 'Caller supports ANSI but in NG mode
COMMON SHARED Banked.Time% 'WildCat! v3.0+
COMMON SHARED BaudConn$ 'Connect rate of caller or "LOCAL"
COMMON SHARED BaudOpen$ 'Port opening BPS
COMMON SHARED BaudRate$ 'Baud and parity for DORINFO
'Baud rate or 'KB' for WWIV
COMMON SHARED BBSColor% 'BBS default color code (1-15)
COMMON SHARED BBSDir$ 'Spitfire's home directory
COMMON SHARED BBSSys$ 'Name of the BBS
COMMON SHARED BBSName$ 'WWIV
COMMON SHARED BirthDate$ 'Caller's date of birth
COMMON SHARED BltPath$ 'Path of the high score bulletin.
COMMON SHARED CallAlarm% 'Caller alarm status. -1=ON, 0=OFF
COMMON SHARED CallersLoc$ 'Location of CALLERSx log
COMMON SHARED CallSign$ 'WWIV
COMMON SHARED ChatStatus$ 'Chat mode status. "U" or "A"
COMMON SHARED City$ 'Caller's city and state
COMMON SHARED CNAMESLoc$ 'Location of CNAMES
COMMON SHARED Columns$ 'WWIV
COMMON SHARED Command.Line$ 'Y or N, WildCat! v3.0+
COMMON SHARED Comport% 'COM port number
COMMON SHARED ConfReg$ 'Conference registration
COMMON SHARED Console$ '"LOCAL" or "REMOTE"
COMMON SHARED Daily.Bytes.Alwd# 'Daily download max. K limit
COMMON SHARED DailyDnldBytes& 'Bytes downloaded so far today.
COMMON SHARED DataBits$ '7 OR 8
COMMON SHARED DataDir$ 'WWIV
COMMON SHARED DeleteFlag% '1 = delete this record, 0 = keep
COMMON SHARED Display% 'Local display status. -1=ON, 0=OFF
COMMON SHARED DLPerDay% 'Number of downloads allowed per day
COMMON SHARED DLToday% 'Number of downloads made today
COMMON SHARED Door.DL& 'WildCat 3.0+ # files DL'ed in door
COMMON SHARED Door.KB& 'WildCat 3.0+ Total K DL'ed in door
COMMON SHARED Door.Logoff$ 'WildCat 3.0+ Y or N if user logged
'off from within the door
COMMON SHARED DoorNumber$ '
COMMON SHARED Doors.Opened% 'Number of Doors he has opened
COMMON SHARED DoorSys% '1 = using DOOR.SYS, 0 otherwise
COMMON SHARED DorInfo% '1 = using DORINFx.DEF, 0 otherwise
COMMON SHARED DorInfo13th$ '13th line for RBBS DORINFO
COMMON SHARED Downloads% 'Number of downloads made
COMMON SHARED ECC% 'Error corrected connect. 1=YES, 0=NO
COMMON SHARED EnterDoor$ 'Time caller entered the door
COMMON SHARED Event$ 'Event time (hh:mm)
COMMON SHARED ExeName$ 'Name of .EXE (Programmer supplied)
COMMON SHARED ExitFrom$ 'Conference exited BBS from
COMMON SHARED Expert$ 'Expert mode - "Y" or "N"
COMMON SHARED Expire$ 'Caller's expiration date
COMMON SHARED ExpiredLevel& 'Expired Security level
COMMON SHARED ExtraTime& 'Number of seconds gained since logon
COMMON SHARED First$ 'Caller's first name
COMMON SHARED FrontEnd$ '"TRUE" or "FALSE" if booted from a
'front end program.
COMMON SHARED GfilesDir$ 'WWIV
COMMON SHARED Gold$ 'WWIV
COMMON SHARED Graphics% 'Graphics mode status. -1=ON, 0=OFF
COMMON SHARED HPhone$ 'Caller's home phone number
COMMON SHARED IRQ% 'For use with non-standard IRQ's
'(other than IRQ3 or IRQ4)
COMMON SHARED LastConf% 'Conference number last in.
COMMON SHARED LastFArea$ 'Last file area
COMMON SHARED LastMConf$ 'Last message conference
COMMON SHARED LastMsg$ 'Last message read
COMMON SHARED LastOn$ 'Date caller last logged on (MM-DD-YY)
COMMON SHARED LastOnDate$ 'Date and time of last call
COMMON SHARED LastScan$ 'Date of last directory/new files scan
COMMON SHARED LastTimeOn$ 'Last time caller was on
COMMON SHARED Level& 'Caller's security level
COMMON SHARED LocalUsr% '-1 = LOCAL mode, 0 = Online
COMMON SHARED Log$ 'WWIV
COMMON SHARED LogonHrs$ 'Time caller logged on in HH:MM format
COMMON SHARED LogonMins% 'Time caller logged on in minutes
COMMON SHARED LogonSecs& 'Number of seconds since midnight
'when caller logged on to the BBS.
COMMON SHARED LogonTimeDate$ 'Date and time of this call
COMMON SHARED MaxBaud$ 'Maximum baud of the system
COMMON SHARED Max.Files% 'Maximum daily files available
COMMON SHARED MinsCredit% 'Time credits in minutes
COMMON SHARED MNP$ '"MNP/ARQ Connection" or
'"Normal Connection"
COMMON SHARED Mode% '0 = Non-color, -1 = color is on
COMMON SHARED Msgs.Left% 'Total messages left
COMMON SHARED Msgs.Read% 'Total messages read
COMMON SHARED Name$ 'Caller's full name
COMMON SHARED Network% '1 = BBS is networked, 0 = no network
COMMON SHARED Network$ 'DORINFO network type
COMMON SHARED NodeNum% 'Node number
COMMON SHARED NoDTELock$ '"TRUE" or "FALSE" if configured for
'software data flow control.
COMMON SHARED Num.Dl.Today% 'Files downloaded so far today
COMMON SHARED Owner$ 'DoorFrame registered owners name.
COMMON SHARED PageBell% 'Page bell status. -1=ON, 0=OFF
COMMON SHARED PageLen% 'Caller's page length
COMMON SHARED Parity% 'Parity (word length?) (7 or 8)
COMMON SHARED Parity$ 'WWIV
COMMON SHARED Password$ 'Password of caller
COMMON SHARED PathGen$ 'Path to the GEN directory
'Path to Allfiles.dat DIR for WC 3.0+
COMMON SHARED PathMain$ 'Path to the MAIN directory
'Path to BBS dir. for WC 3.0+
COMMON SHARED PCBDat$ 'Location of PCBOARD.DAT
COMMON SHARED PCBoard% '1 = PCBoard, 0 = non-PCBoard
COMMON SHARED PCB.Version% 'PCBoard version number (i.e. 1450)
COMMON SHARED Printer% 'Printer status. -1=ON, 0=OFF
COMMON SHARED ProgName$ 'Name of DOOR (Programmer supplied)
COMMON SHARED Protocol$ 'Caller's default protocol (Z, X, etc)
COMMON SHARED Response$ 'Returned after a CALL to IN.PUT
COMMON SHARED Sec.Level.Name$ 'WildCat! v3.0+
COMMON SHARED Seconds& 'Number of seconds since midnight
'when caller entered the door.
COMMON SHARED Serial$
COMMON SHARED Sex$ 'WWIV
COMMON SHARED Spitfire% '1 = using SFDOORS.DAT, 0 otherwise
COMMON SHARED SysLoc$
COMMON SHARED SysOp% '1 = SYSOP is using DOOR, 0 otherwise
COMMON SHARED Sysop$ 'WWIV
COMMON SHARED SysOpFirst$ 'Sysop's first name
COMMON SHARED SysOpFlag$ '" ", "N"=Sysop Next, "X"=Exit to DOS
COMMON SHARED SysopKeys% 'Sysop keys 0=arrows, 1=alternate set
COMMON SHARED SysOpLast$ 'Sysop's last name
COMMON SHARED SysOpName$ 'Sysop's first and last names
COMMON SHARED SysOpNext$ '"TRUE" or "FALSE"
COMMON SHARED TimeAdjust% 'Use to adjust the callers time
'remaining online (in minutes).
COMMON SHARED TimeAlwd% 'Minutes caller is allowed
COMMON SHARED TimeLastCall$ 'Time of last call (hh:mm)
COMMON SHARED TimeLeft% 'Time caller has left in minutes
COMMON SHARED TimeNow% 'Current time in minutes
COMMON SHARED TimeOff$ 'Time caller exited the door
COMMON SHARED TimeOut% 'Keyboard timeout - defaults to 5 mins
COMMON SHARED TimesOn% 'Number of times on system
COMMON SHARED TimeUsed% 'Time used so far today in minutes
COMMON SHARED Total.Bytes.Alwd# 'Max. bytes allowed
COMMON SHARED Total.Bytes.Today# 'Daily download K total
COMMON SHARED Total.KB.Dl# 'Total K bytes downloaded
COMMON SHARED Total.KB.Ul# 'Total K bytes uploaded
COMMON SHARED TotDnldBytes& 'Total number of BYTES downloaded
COMMON SHARED TotUpldBytes& 'Total number of BYTES uploaded
COMMON SHARED Uploads% 'Number of uploads made
COMMON SHARED UserComment$ 'User maintained comment
COMMON SHARED User.Info% '1=write USERINFO.DAT on exit, 0=don't
COMMON SHARED UserNum% 'Record number of caller
COMMON SHARED UsersLoc$ 'Location of PCBOARD USERS file
COMMON SHARED UsrSys% '1 = using USERS.SYS, 0 otherwise
COMMON SHARED Version$ 'DOOR version # (Programmer supplied)
COMMON SHARED WildCat% '1 = using CALLINFO.BBS, 0 otherwise
COMMON SHARED WildCat3% '1 = using USERINFO.DAT, 0 otherwise
COMMON SHARED WPhone$ 'Caller's work phone number
COMMON SHARED WWIV% '1 = using CHAIN.TXT, 0 otherwise
CONST BLACK = 0, BLUE = 1, GREEN = 2, CYAN = 3, RED = 4, MAGENTA = 5
CONST YELLOW = 6, WHITE = 7, GRAY = 8, LBLUE = 9, LGREEN = 10, LCYAN = 11
CONST LRED = 12, LMAGENTA = 13, LYELLOW = 14, LWHITE = 15